#!/usr/bin/perl
use strict;
use warnings;
use autodie;

if ($#ARGV >= 1) {
foreach my $i (1..$#ARGV ){print "$ARGV[0]\/$ARGV[$i]\n";} 

}